RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F LLE**1D**OUTCHA oy 
000000 UU UU TTTTTTITIT cccccccc HH HH AAAAAA ; 
000000 UU UU TTTTTTTTTT Cccccccc HH HH AAAAAA : 
00 00 UU UU TT cc HH HH AA AA : 
00 00 UU UU TT cc HH HH AA AA ; 
00 00 UU UU TT cc HH HH AA AA ; 
00 00 UU UU TT cc HH HH AA AA ; 
00 00 UU UU TT cc HHHHHHHHHH = AA AA ; 
00 00 UU UU TT cc HHHHHHHHHH = AA AA : 
00 00 UU UU TT cc HH HH AAAAAAAAAA : 
00 00 UU UU TT cc HH HH AAAAAAAAAA . 
00 00 UU UU TT cc HH HH AA AA cove ; 
00 00 UU UU TT cc HH HH AA AA eee ; 

000000 UUUUUUUUUU TT cccccccc HH HH AA AA eee : 

000000 UUUUUUUUUU TT cccccccc =H HH AA AA cove > 
LL HII! SSSSSSSS : 
LL HII SSSSSSSS ; 
LL I] SS : 
LL I] SS : 
LL I] SS : 
LL I] SS ; 
LL I] SSSSSS ; 
LL I] SSSSSS : 
LL I] S$ : 
LL I] SS ; 
LL I] SS : 
LL I] SS : 
LLLLLLLLLL I111il SSSSSSSS : 
LLLLLLLLLL HII] SSSSSSSS ‘ 
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ZTITLE Treceseer for cha er nd appendix headers.' 
MODULE outcha ( IDENT = 
a x8 LISS32L, ADDRESSING MODE (EXTERNAL = LONG_RELATIVE 
NONEXTERNAL = LONG-RELATIVES 


BEGIN 


VR RRR ERATE 
'® * 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
ALL RIGHTS RESERVED. * 
' € 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'w INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'w TRANSFERREC. * 
* 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
‘® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
* 
oa 
ea 
* 
® 
ca 


't DIGITAL ASSUMES NO RESPONS 
!® SOFTWARE ON EQUIPMENT WHIC 


BJE 
OMM 


ITY FOR THE USE OR gem OF ITS 


BILITY 
IS NOT SUPPLIED BY DIGITAL 


IBIL 
H IS 
hl 
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“FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: Processor for chapter and appendix headers. 
ENVIRONMENT: Transportable 

AUTHOR: .K.A. ALDEN CREATION DATE: February, 1983 
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AX-11 Bliss-32 V4.0-742 
RUNOFF .SRCJOUTCHA.BLI;1 


KFA00019 Ken Alden 14-Sep-1983 
Added emphasis 2» ail ler autotitle if user used STCH or 
STAX for emphas This is for DSRPLUS only. 


KFA00018 Ken Alden 23-Aug-1983 

Removed gi ght Lines of pt that are only needed for 
autosubtitle. These lines were left over from OUTHDR 
and prevented autotitle from carrying over any emphasis 
the user may have given with the chapter/appendix directives. 


KFA00017 Alden 28-Jul-1983 
Tweaked the flip” bit from #16. 

KFA00016 Alden 27-Jul-1983 
Fixed logic for the that was put in horton #14, 
KFA00015 Alden 28-Jun-1983 


Made all calls = “this module force a ‘‘chapter-oriented’’ book. 
Unnumbered chapters will now also reset the page number to one. 


KAD00014 Keith Dawson 18-May-1983 
Removed call to PUTTPG for FLIP output. 


KFA00013 Ken Alden ge -1983 
Un=numbered chapter/appendixes now will not change the 
“chapter’’ status or page numbers of the document. 


KFA00012 Ken Alden 2-May-1983 


Altered the 4 subtitles are cleared at the start of 
a chapter, he ~ | it works now is: 1)AUTOTITLE is first 
checked. If true, then clear the subtitle. 2) If AUTOTITLE 
is eo, the subtitle is clear anyway if AUTOSUBTITLE is true. 


KFA00011 Alden 29-Apr-1983 
Added code for map STARTODD bit; 


REM00010 Ray Marshall April-1983 
Conditionalized for DSRPLUS so it can be used by DSR, too. 


REROOO09 Ron Randall 07-Apr-1983 
For DSRPLUS: Initialize footnote number. 
KF A00008 Alden 16-Mar-1983 
PUSH/POP_SCA now ek try to DSR. 

KFA00007 Ken Alden 9-Mar-1983 


TOC action was changed so the fopencte -_ is always 
pessed to the TOC as well as al xS bei ng read. 
LTOTITLE is on, then the title. me Ais , so read. this 
passes the bolding/under Lining information to the BRN, “regardless. 


KAD00006 Keith Dawson 07-Mar-1983 
Global edit of all modules. U Updated module names, idents, 
copyright dates. Changed requt re fil 


es to BLISS library. 


Se 


8 
HA P hapt d dix headers. 16-8 -1984 01:19: AX-11 Bliss-32 V4.0-74 Page 3 
rit eein how ot er ultlers atte ape natalie + Spam 1 =30071382 03:49:98 RUNOFF .SRCJOUTCHA.BLI; ’ (2) 


i 166 809 


1 I=- 


———eEeee oo 


8 
TCHA Processor for chapter and appendix headers. bse -1984 01:19: AX-11 Bliss-32 V4.0-74 P 4 T 
y04-000 Module Level Declarations bese aes Pae  CE Tt T Ph Day oT — v4 
! } 9 SSBTTL "Module Level Declarations’ 
1 : ; TABLE OF CONTENTS: 
104 1 FORWARD ROUTINE 
! 5 ; OUTCHA : NOVALUE; ! Generate the CHAPTER or APPENDIX header 
1 ! INCLUDE FILES: 
LIBRARY "NXPORT:XPORT’; ! XPORT Library 
REQUIRE ‘REQ:RNODEF'; ' RUNOFF variant definitions 
U ZIF dsrplus XTHEN 
U eg "REQ:DPLLIB'; ! DSRPLUS BLISS Library 
wee "REQ:DSRLIB'; ! DSR BLISS Library 


! EQUATED SYMBOLS: 


EXTERNAL LITERAL 
RINTES : UNSIGNED (8); 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
! 
1 EXTERNAL LITERAL 
\ ' S_FMRA; !Allocated length for footnote MRA. 
! OWN STORAGE: 
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1 
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1 


io 
° 
o 
° 
. 
e 
. 
° 
. 
Y 
> 
e 
. 
° 
. 
* 
. 
° 
° 
. 
. 
o 
. 
a 
. 
eo 
. 
° 
. 
° 
. 
° 
. 
° 
. 
. 
. 
. 
. 
o 
. 
. 
+ 
. 
7 
. 
. 
e 
° 
oe 
. 
° 
. 
. 
7 
e 
o 
o 
o 
. 
. 
° 
. 
o 


WWWAI AISI PUNPINPUNIPIPUNIDD 2 2 OS SS S| OOO 


a S2ess 
BSS SS DEG COS US APU SS Sos MO Cy ODN NE UII ODS OD Wr 


AACS VUVMIMIVIVIVNIVIVIVIVI ES BEE EE OO 


o 
BRANIASSSISATLERISSOVSUSUN A SSeS Anon nose 


MACROS: 
MACRO ! NOTE: this code depends on the arrangement 
show_counter = ! of Literals in TOCRTY. 


Be Se Se Be Be Se Fe Se Se Se Se Be Se Se Se Ge Se Ge Se Ge Fe Ge Ge Fe Fe Fe Se Ge Ge Ge ae Ge SF Se Ge Fe Ge Ge Se Gee Fe Se Fe See Se Se See ee Se Se Sete seas 
POIPIPOPIPIPIPINPIPINIPINIPINIPIPINPIPIPIPIPIPPIPPUPINPIPININPIPYPINPONYN 2 SS — 


ee ee ee eee 


SOSSSGOCOOOOCOSCOCOOSOCOSOCOSOOCOOOOOSOOSOSCOSOOOOOOOOOOOOOOOO: 


4 
3 M 
: . ? (.ca tionminor_type MOD 3) EQL 2 
4 M 026 .caption_minor_type EQL min_chapt 
4 M 026 OR 
? . f scaption_sinor_ type EQL min_append 
4 7 z; 
4 7 
4 7 OWN 
? f PP_SCA - $H_R_SCA_BLOCK; 'Used in PUSH_SCA, POP_SCA macros (defined in SCA.REQ). 
$ , i EXTERNAL REFERENCES: 
5 7 EXTERNAL : 
5 80 ECC : SECC_BLOCKVECTOR, ! Counters and display codes for Examples, Figures, Tables 
5 1 FNCT : FNCT DEFINITION, 
5 § FOOMRA : FIRED _STRING 
5 FOOTSF : VECTOR CTSF_S1Z€), 
5 4 FSO1 : FIXED STRING, 
5 5 GCA : GCA_DEFINITION, 
5 HCT : HCT_DEFINITION, 


F 8 
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HLDSP_: VECTOR CMAX LEVELS, 
HLLIST : COUNTED_LIST, 
A: FIXED _STRINAG 
RA : REF FIXED STRING, 
TITMRA : rixee STRING, 
TITTSF : VECTOR 
NPAGEN : PAGE DEFINITION, 
PAGEN : PAGE DEFINITION, 
HAN : PHAN DEFINITION, 
SBIMRA : FIRED STRING, 
SBTTSF : VECTOR 
SCA : SCA_DEFINITION, 
TSF : TSF_DEFINITION; 
EXTERNAL 
KHAR; 
EXTERNAL ROUTINE 
endchr, endwrd, gcpage, gcskip, 
gtpc guskip, outcrg, outctr, 
outnj, pacsec, Pacxxx, putcnt, 
puttpg,. puttxt, remmrg, remneg, 
rskips, scant, sdxy, setcas, 
titles, tstblk; 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJOUTCHA.BLI; 
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our cna oces 
v04-000 TCHA == Process chapter & appendix headers ~Sep-1 RUNOFF ..SRCJOUTCHA.BLI; (4) 
1 1 ZSBITL ‘OUTCHA == Process chapter & appendix headers’ 
1 1 GLOBAL POUT ne outcha 
4 

15 Lines_before, Lines_after, test_page_amount, 

1 counter_major_type, counter_minor_type, 

1 counter_value, counter _display_code, counter_spaces_after, 

18 counter_pre_string_length counter_pre_string_ptr, 

1 counter -post_string_ Length, counter _post_string ptr, 
caption_major_type, caption_minor_type capt oncase, 
caption-is_centered,  caption-is_flish_right, caption-is_run_in, 
caption_is_bold, caption_is_underlined, put_intO_méem_file 
autosub itle, brn_open, reak_before-caption, 
Lines_between, new_page, startodd, 


 OSROUALUE = 


* FUNCTIONAL DESCRIPTION: 
Processor for chapter and appendix headers. 

FORMAL PARAMETERS: 

LINES _BEFORE 


LINES BETWEEN 
LINES "AFTER 


leave this —_ blank Lines before the header 

leave n blank Lines between ‘CHAPTER’ or ‘APPENDIX’ & caption. 
leave this many blank Lines after the (non-run-in) header 
start a new page unless this many Lines remain 


pe a ey ees eee ah Nt oh yo Vron 
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EST PAGE AMOUNT 
BREAR BEFORE CAPTION 
COUNTER_MAJOR_TYPE 
COUNTER-MINOR-TYPE 


start a new line between the counter and caption. 
(not implemented) always MAJ_RUNOFF 

specifies type of header: HL, Example, Figure, Table 
(not used for HLs) numerical value of the counter 
(not used for HLs) display code of the counter 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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' 
i 
i 
i 
i 
i 
i 
i 
" 
i 
i 
i 
i 
i 
i 
i 
! COUNTER_SPACES AFT leave this many spaces between counter and caption 
45 ! COUNTER_PRE_STRING_LENGTH (not used for HLs) length of pre-counter string 
r ! COUNTER_PRE_STRINC_PT (not used for HLs) ar to pre-counter string 
4 ' COUNTER_POST_STRING_LENGTH (not used for HLs) length of post-counter string 
rt ! COUNTER_POST_ STRING_P (not used for HLs) pointer to poss scounter string 
4 ! CAPTION_MAJOR_TYPE (not implemented) always MAJ_RUNOFF 
50 ! CAPTION_MINOR_TYPE specifies whether or not to Show the counter 
51 ! CAPTION_CASE code for the case rules to apply to the caption 
26 ! CAPTION_IS_CENTERED True if caption should be centered 
5 ! CAPTION_IS_FLUSH_ RIGHT (not implemented) True if caption should be flush-right 
54 ! CAPTION_IS_RUN_IRN True if caption should be run-in with following text 
55 ! CAPTION_1S_BOLB True if caption should be bolded 
2$ ! CAPTION. IS_UNDERLINED True if caption should be underlined 
5 ! NEW_PAGE start a new page before CHAPTER or APPENDIX. 
28 : Always TRUE for DSR. 
! STARTODD force the first page of a chapter to start on an odd page. 
tre ! TOCPAGE insert a page number in the . 
61 ! PUT_INTO_MEM_FILE (not implemented) True if header should be output in .MEM file 
5 § ' AUTOSUBTITLE True if header should be picked up as an auto subtitle 
BRN_OPEN True if header should be sent to the TOC 
3 5 ; IMPLICIT INPUTS: None 
40 ! IMPLICIT OUTPUTS: None 
41 8 ; 


D-II 
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TCHA Processor for chapter and endix headers. 16-Sep-1984 01:19: AX-11 Bliss-32 V4.0-74 P 7 
y04-000 OUTCHA == Process’ chapter S copendia headers 12-8601 382 aa RUNOFF .SRCJOUTCHA.BLI; — (4) 
: 24 1! ROUTING VALUE : 
: tz ! } COMPLETION CODES: None 
: 265 72 1 1 SIDE EFFECTS: None 
: $08 1 hs 
; 48 75 BEGIN 
> 24 6 LOCAL 
; 0 7 hold_khar, 
3 1 4 hold_lst_sp,. 
; ¢ 7 hold_mra, 
3 9 hold_tsf, 
; 4 hold_\m, 
3 2? § hold_wrd_pntr 
; $ ira_Rold™: VECTOR (10), 
3 23 hold_headers, !Copy of HCT_HEADERS 
; 38 5 minor_code, 
: 4 $ sca_hold :sca_definition; 
: 261 HH ‘Report pending errors. 
$ 6 8 89 remneg (); 
>; 26 90 ronars (); 
; 64 91 tstblk (05; 
i Bee gh filers p enanter or gppendix nov. cat min-chapt. int 
3 npagen (sc = -counter_minor e min_cha n 
: 268 95 — isi THEN sct_chapt sed eit. 
: 14 33 ELSE sct_append); 
3 4 0398 rskips (ira); ! Skip spaces and tabs before the text. 
: ig 400 ‘We Oey have had chapters OR appendixes already if so begin 
: rR 4 'counting where we left off. 
; A} 08 ‘It is possible that we are in the no_page mode and this new chapter 
; ef ‘will throw a page. If the Layout puts the page numher at the bottom 
3 re 405 toi the page then we can't update the NPAGEN until we are at the next 
: rtf] ‘page. Otherwise the page numbers come out incorrectly. 
; rs} rt For the utilities, we must keep the sction numbering as it used to be. 
; Hd 409 npagen sct_number] = -counter value: !To maintain compatability 
:; 28 10 npagen sct_page = 1; tnumber the next page ‘1 
; 11 npagen (sct_sub_page) = 0; ‘turn off subpaging. 
3 5 i gca_chapt = true; ‘Mark document as containing chapters/appendices. 
: 28 14 
3 89 1 Reset footnote number to 0. 
; 3 fnct_number_l = 0; 
; 291 1 fnct_number_r = 0; 
3 38 1 fnct_number = 0; 
3 29% 'See if this chapter is supposed to start on a new page. 
: 295 U § TIF ferplus ZTHEN 
3 38 U IF NOT .mew_page 
; a U 4 THEN 
3; 298 U 5 BEGIN 


$2 
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geor for chapter and endix headers. 1b-5e Sep-1984 3 AX-11 Blis Page 
-- Process chapter P oopendix headers ~300n 138% 9}: 43: 9; RUNOFF .SRC ri ete . us 
U gtec - gue page, amount); 
: : puree TNow, force the paper to be positioned as it should. 
§ U ELSE 
U ari BEGIN 
5 ‘Initialization of new chapter or appendix 
U AIF dsrplus XTHEN , ” 
0 U IF .startodd 
08 U THEN ‘user wants to start on an odd page. 
09 U BEGIN 
i U fs_wechar (mra, rintes); 
1 U ts. _wchar (mra, ae, w'); 
\¢ U farintovi (mra, %C° '); 
1 U nt_vl = .tsf_int_vl + 3; 
14 U 
15 U ELSE. 
9 we 0; ‘Start 
° art a new page 
18 r AIF dsrplus qiheR pag 
19 U Turn off page headers for this page if not first title Calways]. 
0 U it NOT .hct_title_always 
1 U THEN 
¢ U er BEGIN 
4 pote headers = .hct_headers; 'No header at top of chapters and appendices. 
5 hct_headers = false: 
§ U ZIF dsrplus ZTHEN 
U END; 
3 wal hct_odd 0; ‘Reset odd/ it 
_odd_even = 'Reset odd/even page parity. 
0 U ZIF éerolus “ZTHEN ~~ © , 
1 U END; 
g <FI 
¢ rp bceovtetitte 'If AUTOTITLE (default), then: 
BEGIN ‘Clear subtitles 
; LOCAL 
3 hold_tsf; 
0 hold_tsf = .tsf; ‘Remember current TSF. 
1 tsf = sbttsf; iSwitch to the TSF for subtitles. 
¢ tsf_int_hl = 8: 
tsf_ext_hl = 
44 tsf-= .Rold tsf; ‘Return to main TSF. 
é fs init sceecal: iComplete reset of subtitle MRA. 
ELSE 
8 IF z0ce_cutosubt jaute subtitle is on, don't carry 
9 THEN ver past subtitles. 
50 BEGIN ietger subtitles 
2) LOCAL 
25 hold_tsf; 
54 hold_tsf = .tsf; ‘Remember current TSF. 
55 tsf = sbttsf; iSwitch to the TSF for subtitles. 
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HA -- Process chapter & appendix headers -Sep-i RUNOFF ..SRC JOUTCHA.Bi1 (4) 
3 tsf_int_hl = 8: 
tsf_ext_hl = 
5 sf"= .fold_ts?; ‘Return to main TSF. 
$ fa, init (sbmra); 'Complete reset of subtitie MRA. 
5 ‘Generate the specified number of Lines before the header text. 
'This is ony done if we are starting the chapter/append on a new page. 
U 0491 ZIF dsrplus XTHE 
U 3 F .new_page 
6 U 3% BEGIN 
re U 38 
6 U 38 + dd 9 Lines after the title, 8 after the subtitle, else skip 12. 
70 U 049 IF .nct_title_always 
71 U 0498 THEN 
Lf U 0499 IF het subtitle 
7 U THEN guskip (.lines_before = 4) 
¥ 1 ELSE guskip (.lines_before - 3) 
U : guskip (.lines_before); 
y 5 evse’™ 
88 ZFI 
0 guskip (.lines_before); tend of top-of page-skip 


coo 


'Reset header levels. 
INCR i FROM 1 TO .hAllist Ccol_max_index] DO 
hllist C.iJ = 0; 


hllist Ccl_index] = 1; 
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4 
88 5 'Reset gacity counts for Example, Figure, Table. 
89 § INCR i FROM TO 2 
eS ecc C.i, ecc$h_counter) = 0; 
36 $ sdxy (); 'Reset some other things 
Re 1 fF .,sPhen_tep_firet 
38 5 'This was specified at the top of the very first page, and so 
38 : ‘we connet wait for NEWPAG to advance the page number. 

agen ([sct_typ] =_.npagen (sct_typ]; 

239 § penen ESetcnme r) 2 ehpegen Sct nunber); 
401 3 pagen ct page] = .npagen tact page); 
106 ; npagen sct_page] = .npagen sct_page) + 1; 
4 1 ¥ 
405 § 'If at the top of any page. output the page number. This is being done 
rts] ‘because of problems with the the doe tgn of RUNOFF. NEWPAG won't output 
40 ‘the page number until this header text forces a title to be generated, 
rt 5 ‘which may be too late in this Gete; 
rt IF NOT (.gca_op_dev EQL op_dev_flip) 
411 3 BEGIN 
412 IF .brn_open 
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! If either (1) this head will become a title or (2) user is creating a 
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Processor for chapter and endix headers. 16-Sep-1984 01:19: AX-11 Bliss-32 V4.0-74 P 1 
OUTCHA == Process chapter P oppendix headers 1 30071382 95:09:97 RUNOFE SRE TOUTCMALOL ete (aS 
4 THEN 
2 if -phan_top_first 
ti puttpg (pagen, -1) 
45 uttpg (npagen, -1); 
i END: puttpg (npag 
t 
rk ! If creating a binary table of contents file, write out the counter and 
0 ! display descriptor. 
1 ae rn_open 
5 § ‘User is generating a table of contents. 
222 putcnt ( .counter_major_type 
2 »-counter_minor_type 
5 § ».tocpage ! Put the page number into TOC? 
55 0 ! Always zero--pagen gives this info. 
228 »-counter_pre_string_length ! 
55 --counter_pre_string_ptr ! String before the number. 
0560 ,-counter_post_string_Llength ! 
086 )counter_post_string ptr ! String after the number. 
5 e 
o568 'Save scanning information 
B20? push_sca; !Save the SAVEd SCA bits. 
98 INCR i FROM 0 TO sca_size - 1 DO 
82 sca_hold C.i] = .sca C.i); 
5 hold_lm = .sca_lm; ' Save left margin; it might be used if 
be ! centering and wrapping. 
5 INCR i FROM 0 T0.10 - 1 D ! Save IRA. 
5 ira_hold C.i] = .ira C.i); 
2 hold_khar = .khar; ! Save KHAR. 
5 
5 


090908 INI NS SININNNINIOO O 
SARIN LSSSELSARAN LS SHVSAR A= SSHGS- 


5 ! .BRN ie then we must scan the text twice. The first time we scan it at full 
5 i width, 156 characters, for title and/or TOC. 
5 itt Tf the title actually runs wider than the current right margin, 
: rit however, we truncate it and append "’...'’. 
5 IF .sca_autotitle OR .brn_open 
: THEN 
: BEGIN 
5 sca_prescan = false; ‘A *;* does NOT terminate this command. 
5 sca_rskips = true; Ignore multiple spaces and tabs. 
5 sca_fill = false; 
5 sca justify = false; 
3 Set right margin big to catch long headers. 
sca_lm = 0; 
: sca_rm = 150; 
sca_do_ind = false; 'Ignore indexing for subtitle/TOC scan. 
5 


‘Make a title out of this chapter/appendix title, if that's what the 
! user desires. The routine TITLES, which normally processes 


CODON INAS 


PEEPLES 
bat tt 4 
UEWN—O0ONOU EWN 


SEEEEe 
LESLSSE 
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nd ed aed a ed od ad ad eed ed COO 
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Processor for chapter and He 
OUTCHA == Process chapter & appendix headers -Sep-1 RUNOFF ..SRCJOUTCHA.BLI; 
a ! titles/subtitles, contains the necessary logic. 
$3 gsceneutotitte 
ont ? 452} lect caption text in title buffer 
O06 4 'Set up bolding and yo eet > if requested. 
6 5 IF (.caption_is_bold AND .sca_do_bid) 
604 4 THEN 
605 BEGIN 
6 $ sca_bld = true; 
6 sca_wrd_c_bld = true; 
em Pe 
610 5 IF (.caption_is_underlined AND .sca_do_und) 
611 4 THEN 
ols BEGIN 
61 sca_und = true; 
614 sca_wrd_c_und = true; 
Be12 : END; 
O61? 4 setcas (.caption_case); 'Set up case rules for the caption text. 
0618 4 titles (h_title); 'Use TITLES to get the title. 
0836 END; 'End of autotitle processing. 
621 IF _ .brn_open 
06 § THEN _ 
06 4 BEGIN 
0624 4 
0625 4 ‘Restore IRA and KHAR. 
06 § & INCR i FROM 0 TO 10 - 1 DO 
38 f ? ira C.i] = .ira_hold C.i); 
0629 4 INCR i FROM_O TO sca_size - 1 DO 
36 9 ? sca C.i] = .sca_fold C.i); 
Og § 4 pop_sca; 'Restore the SAVEd SCA bits. 
o3 4 'Save scanning information for another scan. 
+ r ; push_sca; Save the SAVEd SCA bits. 
0636 4 INCR i FROM 0 TO sca_size - 1 DO 
06 ? sca_hold C.i] = .sca C.i); 
6 & 'Save IRA and KHAR 
640 4 iNCR i FROM 0.10.10 - 1D 
? ira_hold C.i] = .ira C.i); 
4 !Going to TOC, may or may not be an auto-title. a 
4 sca_prescan = false; ‘A ‘;* does NOT terminate this command. 
4 sca_rskips = true; ‘Ignore multiple spaces and tabs. 
“ sca_fill = false; 
& sca ustity = false; 
4 'Se€ right margin big to catch long headers. 
4 sca_lm = Q; 
4 sca_rm = 150; 
4 sca_do_ind = false; 'Ignore indexing for title/TOC scan. 
4 sca_fc_case = true; 
4 sca_fc = true; 
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khar = .hold_khar; 


! Switch to the Footnote TSF and MRA (which are not otherwise 
i used in .ch/.ax) to collect the header information for the TOC. 


hold_mra = mra; 


hold 
tsf 


‘Before estes on A e+ descriptors, it is necessary to explicitly 
'reset the maximum len of the footnote MRA. It is clobbered if any 
i{goenoge $ have been a thy o far. See the comments in FNONLY around 
‘Line 1545 for the detailed justification. 

fs_maxsize (mra) = s_fmra; 


Noy ph bed gg the text descriptors. 
s_in 

INER i FROM 0 TO tsf size - 1 00 

tsf C.iJ = 0; 


BREE RWWA AAAI 
J 
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C 


'Set up bolding and yi ee if greets. 
tien’ -Caption_is_bold AND .sca_do_ 


HF a tent ton, ts_undert ined AND .sca_do_und) 
BEGIN 
sca_und = true; 
sca_wrd_c_und = true; 
END; 


AANA UIUIVI ES BP 


oon 


'Set up case rules for the chapter/appendix. 
setcas (.caption_case); 


'Scan 150-wide into footnote MRA. 
scant 
endwrd Choise, false, false); 


‘Switch TSF and MRA back. 
mra = .hold_mra; 
tsf = .hold_tsf; 
END; 
‘Restore IRA and CHAR. 
ameR 1 FROM 0 TO 10 - lee. 
al. ap = .ira_hold C.i); 


khar = .hold_khar; 
END; ‘End of title-or-TOC processing 


ann” : FROM 0 TO ize - 10D 
Pie unt 


VSSELSEAF 


Pe ee ee ee oD tt et ot et et et et et eh hh hh eh he ed ss a et oe oe oe or oP oP a oP a? ot a? a? ot ot et oy oe ot oe? oP 
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rete 


- 


WOOO000000N0M0D0D00C0 


SSSLESLESLSSS 
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=- Process chapter 


BEGIN 

sca_und = true; 
sca_wrd_c_und = true; 
END; 


! Generate the number for 
IF show counter 
THEN 


‘User didn't turn off 
BEGIN 
'Generate the counter 


yer Aecenmane tt preseelgdeedes:, CEES TAUPAT Wa 


nN 8 
1 Oh lege V4.0-74 
RUNOFF .SRCJOUTCHA.BLI; 


SAVEd SCA bits. 


‘Fill the header even if not filling text. 
‘A ';" does NOT terminate this command. 
'Ignore multiple spaces and tabs. 


A < ception, fe ,undert ines AND .sca_do_und) 


the .ch/.ax if not turned off. 


the numbering, so generate the .ch/.ax counter. 
in using the case rules for the caption. 


Di i Pi Pn i i in i Pin i Bi I Di in Si i i Ee ee | 


WWW AINA HI IIOP SS SS 


outctr (.counter_minor_type, .caption_case); 


‘Put the counter into the output buffer. 
fs_next (fs01) = .fs_start (fs01); 


INCR i FROM 1 TO .fs_length (fs01) DO 
BEGIN 


LOCAL 
temp_char; 


fs_rchar (fs01, temp_char); 
endchr (.temp_char); 


OOOO COSOSOOSSOSOOSSOOOOSCOOCOSSO SOOO OCOOOCOOOOOOOOOOO 


NNN 
WE PRR 


; Eng the string so the spaces_after will not get underlined (if in 
! effect). 
endwrd (false, false, false); 


NAME WN $9 OD NAUE WIN $$ OOO NOUS WN $$ O OONOUE WN OOONOUSWN | 0 


‘Insert spaces after the coynter if user didn't say BREAK or BETWEEN. 
'Do not put out more than 
ten” (.break_before_caption 


BEGIN 
LO 


AL 
sca_hold_c_bldun, 
sca_hold_ac_blun; 


spaces regardless of what the user said. 
R (.Lines_between GTR 0)) 


'ENDCHR seems to carry over underlining rules even for spaces. 
‘We must turn off these bits before we add the extra spaces. 


A 
pop_sca; 'Restore the 
Scantitl = true; 
sca_prescan = false; 
sca_rskips = true; 
'Set up bolding and ete | if requested. 
IF (.caption_iS_bold AND .sca_do_bld) 
THEN 
BEGIN 
sca_bld = true; 
sca_wrd_c_bld = true; 
4 
4 
4 
4 
& 
| 
4 
3 
4 
4 
& 
& 
4 
d 
4 sca_hold_c_bldun = .sca_wrd_c_bldun; 


SOOooooooooooooo 

SSNS SSN 

SSS See 
MEW —O OO 
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ref 
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sca_hold_ac_blun = .sca_wrd_ac_blun; 

INCR 1 cron 1 TO (MIN (.counter_spaces_after, 75)) DO 
sca_wrd_c_bldun = 0: 
sca_wrd_ac_blun = Q; 
endchr TXC* '); 

END; 


'Restore the SCA bits. 
sca_wrd_c_bldun = .sca_hold_c_ 
BER PEAS Dhue -sca_hold_ac 


dun; 
L 


= L 
= blun; 


b 
‘And now end this ‘word’. 
endwrd (false, false, false); 
'If the user wants a break before the caption, we must 
‘make any adjustments if not flush_left. 
a on_is_centered OR .caption_is_flush_right 
BEGIN 
ag OS SEE OR (.Lines_between GTR 0) 


—“OOONOULS WOO 


> PAEAASAAAAAAAOAA AAAS 
PPE IAAI TAT AI NII EE Ee oe 


BEGIN 
tsf_adjust = 
TIF .caption_is_centered 'Center the counter. 
THEN (.sca_rm = (.tsf_ext_hl))/2 ‘Ignore spaces_after 
ELS "Force the counter right. 
-scarm = .tsf_lext_hl); 


EN 
ELSE 


'No break to be done so we must set the left margin so wrapping 
‘will left justify on the caption left ft 
hold_lm = .tsf_ext_hl; 'Remember for use after SCA is restored. 
scale = .tsf_ext_Al; 


END 


'¢ 
!' The header is flush-left. If the caption is to immediately follow, 
set the left margin so that following text will wrap properly. 


ELSE 
‘If we aren't doing a break after the counter, we must pull in 


ithe Left margin to prevent writing over the counter. 
one (.break_before_caption OR (.lines_between GTR 0)) 


'Set Left margin beyond the counter so if the caption wraps, 
‘it will be nicely justified with itself. 
sca_lm = .tsf_ext_hl; 


END ‘End of code to generate chapter counter. 


RID AANA AHAB HANA BE BBE EMMI IBA AA IIE UE NNN NINN BE PTI 


De Se Be Be Se Se Be Se Se Se Be Se Ge Se Fe Fe Ss Ge Ge Se Ge Ge Fe SF SF Ss Ge Ge Ge Fe FF Se Ge FF Se Ge Ge Se Se Se Se Se Se Se Se Se Sse Se Se Sets se Sse ee ts esas 


tk dd 8 dt od IO 


NANNING INI 
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° 2:19:03 lis 1 
HA == Process chapter o eppendix headers 127868718 4 93:03:93 RUNOFF. ROJOUTCHA.BLI; (4 


‘If we are not Sener es 199 a number, then the first character 
; scanned should be the first character in this MRA. 


sca_fc = true; 


oc 

TC 

8 §, 

0 i If the header is other than flush-left and user asked for break or 
1 ! some Lines between, we have already computed amount to shift it, 
§ ;_we now put it out on a Line by itself. 

ee Ep 

é 

38 
39 
40 
i 
44 
45 


gca_line_pend = 1; 'Until we throw the header, a Line is pending. 
Peg ema tetorecept ton? OR (.Lines_between GTR 0) 


BEGIN 
outnt (); 'Put out the counter. 
peat p(.lines_between); 'Skip the number of Lines requested. 


! Write text to .BRN file. The call to PUTTXT is done here, between 
! poneres tne the counter and the caption, so that coordination with 
LIP/BIND is maintained. 


if -brn_open 
THEN 
Write to .BRN (or .BFL) file. 


puttxt (.fs_length (foomra), .fs_start (foomra), 
-caption_major_type, .caption_minor_type); 


'Set up case rules for the heading. 
setcas (.caption_case); 


'Tell SCANT that the first character of the header is the first 
‘character of a word. (ENDCHR turned this stuff off before.) 
sca_fc_case = true; 


scant (); 'Go get the caption. 


'SCA_WRD_CPEND equals rintes IFF there was a ht Nog space/tab 
‘after the text. Im such a case ENDWRD has already been called. 
‘Calling it again would have the effect of forcing an additional 
‘space out into TSF/MRA, 

F .8ca_urd_cpend NEQ rintes 


V04 


endwrd (false, false, false) 
ELSE 


IF “sca_urd_letund EQL 0 
-sca_wrd_lst_sp GTR 0 
THEN 


'Chop off trailing spaces/tabs. When doing so, also back up 
‘intra-Line pointer and counter appropriately. If justification 
‘was in effect, also cancel the jet T fication mark that got writ- 
'ten onto the MRA. ; : 

aveie that trailing spaces that are underlined are not discarded. 


WlRORoRoROnORonononononononornonononononononononononononononononoronononororononony 


SoOooooooo 
coo 
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Proc 
ouTC 
; ¢ LOCAL 
3 ? chars_to_drop; 
3 5 chars_to_drop = .sca_wrd_lst_sp + 
; § 4 CIF .sca_justify 
2 Use 
° 889 , 
; 90 fs_length (mra) = ,fs_length (mra) = .chars_to_drop; 
3 91 fs-next (mra) = CHSPLOS (.fs_next (mra), -.chars_to_drop); 
; 0 3 sca_wrd_lst_sp = 0; 
; O94 END; 
3 895 'Restore previous scanner rules and set standard rules. 
; Ba38 hold_wrd_pntr = .sca_wrd_pntr; ‘Remember start of next word. 
; + H44 hold_lst_sp = .sca_wrd_lst_sp; 'Remember Last-space info. 
: 0899 INCR i FROM_O TO sca_size - 1 DO 
3 464 sca C.i] = .sca_fold C.i); 
; 090 pop_sca; 'Restore the SAVEd SCA bits again. 
3 090 sca_wrd_pntr = .hold_wrd_pntr; 'Restore start of next word. 
3 44 sca_wrd_lst_sp = .hold_lSt_sp; ‘Restore last-space info. 
; 0906 'This section basically outputs the Last Line of the header. This 
: 0907 'may also be the first (if only one Line long). What must happen here 
; 0908 ‘is if the header is flush-left, the last Line (if different from the first, 
; 0909 § ‘must start at the caption left margin. The same goes for centered 
3 0910 ‘captions if nobreak is in effect and if the caption is so long that 
3: «784 0911 § ‘it wraps. Now if it doesn't wrap, then this section will output 
s ed oats ‘the whole counter and caption. By using GCA_LINE_PEND, we may determine 
: 786 091 ! if this is the first Line output. If a Line has already gone out, then 
; Ata Bare ! SCANT has already ajusted the left margin and no TSF_adjust is needed. 
; «4789 0916 'If the header is other than flush-left, compute amount to shift it. 
: 790 0917 'If user asked for a BREAK or had some LINES_BETWEEN, then the shift 
s 791 0918 ‘for the counter has already been taken care of and this section 
; 79 0919 ‘is only for the caption, otherwise the shift is for the whole header. 
; 79 0920 IF .caption_is_centered OR .caption_is_flush_right 
3; 794 0921 THEN 
3; 795 09 ¢ 
: 796 09 IF .gca_line_pend 'NO Line thrown yet. 
; 797 0924 THEN 
; 798 83 5 tsf_adjust = : 
; 799 926 (IF_.caption_is_centered 'Center the counter/and/or caption. 
; 800 84 7 THEN (.sca_rm- .tsf_ext_hl)/2 
3 ao 3 3 ss ELSE .sca_rm - .tsf_ext_fl ) ‘Force the counter/caption right. 
; 386 IF (.break_before_caption) OR (.Lines_between GTR 0) 
; 804 931 THEN 
: 9 § tsf_adjust = 
3 9 (IF .caption_is_centered 'Center the counter/and/or caption. 
; 934 THEN (.sca_fm = .tsf_ext_hl)/2 
3 i é ELSE .sca_fm - .tsf_éxt_fl); 'Force the counter/caption right. 
; 9 
: 938 outnj 0); 'Force out the caption. 


2s 
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-000 OUTCHA -- Process chapter P eeoendix headers 14- a 7 9}: 3: 9; RUNOFF .SRCJOUTCHA. Bi: — (4) 
: \g 939 3 
: acy gcskip (.lines_after); : 
; i ok sca_sect_empty = true; 'This section is empty now. 3 
: B19 0944 'Set proper case conversion for remainder of section. ; 
: 818 0346 setcas (.gca_case); : 
5 as 37 gca_pchax = false; !Pending .NUMBER CHAPTER/APPENDIX done. ; 
: 8 : U 0949 2 XIF dsrplus XTHEN : 
3 4 U 229 IF NOT .het_title_always AND .new_page 
: RSs U oes 5 ary (NEN 
3 ase 0388 hct_headers = .hold_headers; 'Restore .HEADERS or .NO HEADERS status. 
: £56 T §3e¢ <1F dsrplus XTHEN 
3 o¢? U 0956 We know now that the chapter counter has been cupgue. 
; 830 U 0957 ilf we have moved to the top of a page fine, but if n 
: 831 U 0958 ‘we must update the PAGEN structure. We update if we noid not explicitly 
3 S36 U 0959 ‘request a new page. 
3; 83 U 0960 if OT .new_page 
3; 834 U 0961 THEN 
3; 835 U 442 BEGIN 
; B39 U b96e poben oct “nuay ‘ ak "counts Sayre oi type EQL min_chapt_inf 
3 agen (sc = -counter_m por e min_cha n 
: B38 U 0965 se " THEN sct chapt . 
: 8 Y oe? ect peenll a Capa Meee” append): 1; 
: npagen Csct_page -npagen Csct_page 
Bat U 0968 END: = is = 
H 0969 2 ZFI 
3 0970 1 END; 'End of OUTCHA 


-TITLE OUTCHA Processor for chapter and appendix heade 
LIDENT \V04-000\" 
-PSECT SOWNS,NOEXE,2 

00000 PP_SCA: .BLKB 48 


.EXTRN RINTES, S_FMRA, ECC 
*EXTRN rSbt: fooRRA FOOTSE 
XTR ner 


XTRN Prgres — 
XTRN te Tha NPAGEN 
PAGEN, PHAN, SBTMRA 


NT, 
REMMRG, REMNEG, RSKIPS 
SCANT, SDXY, SETCAS 
TITLES, TSTBLK 
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yo4-000 OUTCHA == Process chapter E cependts headers 12-8601 382 94:9: 9F RUNOFF, ROJOUTCHA.BLI; = (Ab 


~PSECT SCODES,NOWRT,2 


OFFC 00000 ENTRY QUTCHA, Save R2,R3,R4,R5,R6,R7,RB,R9,R10,- = 0313 
B 000000006 EF 36 0000 MOVAB TSF, R11 3 
A EF 9E MOVAB PP_§CA, R10 : 
9 00006 EF 9E 0001 MOVAB SCA+126, RO : 
SE FE : 9E 0001 MOVAB =424(SPS, SP : 
000000006 EF FB O16 CALLS #0, REMNE + 0389 
000000006 ‘EF 0 FB 000 CALLS #0. REMMRG + 0390 
: D4 A CLRL. 0 = (§P) + 0391 
000000006 FF 0 Fe CALLS #1, TSTBLK : 
0 14 AC p CMPL COUNTER_MINOR_TYPE, #16 + 0394 
0 : 00 BNEQ si : 
50 01 00 00039 MOVL #1, RO : 
: 11 0003C¢ BRB 2 : 
50 00 003E 1$: MOVL #3, RO : 
000000006 EF 04 00 0 F 90041 2$: INSV RO. #0, #4, NPAGEN : 
000000006 FF 9F 0004A PUSHAB IRA + 0398 
000000006 EF 1 FB 0050 CALLS #1, RSKIPS ; 
00000000G_ EF 18 AC dO 0005 MOVL COUNTER VALUE, NPAGEN+4 + 0409 
000000006 ‘EF 01 DO 0005F MOVL #1, NPAGENS6 + 0410 
000000006 FF B4 00066 CLRW NPAGEN+ + 0411 
000000006 EF 1 00 0006¢ MOVL #1 GCA+40 ; 0412 
00000006 EF 7C 000 CLRO NCT+#36 : 041 
00000006 EF D4 00079 CLRL = FNC #44 > 0419 
000000006 EE 00 FB 0007F CALLS #0, GCPAGE + 0444 
8 000000006 FF DO 90086 MOVL aHtT +8, HOLD_HEADERS + 0451 
000000006 FF D4 0080 CLRL  @HCT+ + 0452 
000000006 EF D4 0009 CLRL  4HCT+16 + 0456 
07 14 B89 E8 00099 BLBS  aSCA+140, 3$ + 0461 
ee 000000006 FF £9 0009D BLBC = aGCA#B, 4s : 0475 
1 6B DO 000A4 3S: MOVL TSF, HOLD_TSF + 0481 
6B 000000006 EF i OO0A7 MOVAB SBITSF, TSF : 0482 
50 6B p OOAE MOVL TSF, RO : 
$0 C 00081 CLRO = (R > 0483 
68 1 DO 00083 MOVL § HOLD_TSF, TSF > 0485 
000006006 EF p4 0086 CLRL  SBTMRA+1 > 0486 
000000006 EF 00000000G EF : oBc MOVAB SBIMRA+16, SBTMRA ; 
00000000G EF 000000006 EF DO 000C MOVL § SBTMRA, SBTMRA+4 : 
04 AC OD O00¢ 4$: PUSHL LINES BEFORE : 0507 
000000006 Ef 01 FB 000D CALLS #1, GOSKIP : 
1 000000006 EF D D MOVL 4HLLIST, R1 : 0510 
9 : E er. & : 
07 11 OO0E BRB 6$ ; 
QOO00000GEF40 D4 O00E7 53: CLRL HLLIST#4 1) : 0511 
F5 50 1 F3 EE 6$: AOBLEQ Ri, I, : 
000000006 EF 1 0 F MOVL #1, HLLIST+4 ; 513 
0 D4 O00F CLRL_ I : 18 
51 5 4. € FB 7$ MULL3 #36, J R1 > 051 
00000000GEF 41 20 1 F FF INSV. #0, #24, #32, ECC+12CR1) ; 
EE 5 F3 001 AOBLEQ #2. I, ?$ ; 
000000006 fF FB 001 CALLS #0. SOXY > 0519 
E 9 G EF £9 00114 BLBC  PHAN+24, gs ; 1 
000000006 EF 04 0 G EF FO 00118 INSV _-NPAGEN, #0, #4, PAGEN : 26 
000000006 EF 00006 EF 70 0012 MOVQ = NPAGEN+4, PAGEN+4 ; 


«Bs 


ee —_——— 
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3 YAX=11_BLiss-32 V4.0 (dl 
hapter and appendix headers. 18- Sep-1984 RUNOFF .SRCJOUTCHA.BLI: 
vb4-000 OUTEHA S= Srocess’ chopter t appendix headers 1 ~Sep- 1984 93: 9: if <a ; , ; 
essence? 13 8s (MPL Bsn a, GCAP2OB, #2 = 
Lage a a gael | 
E AC 4,'9$ é ; 
ds 000000066 FF £9 00148 Blac PHARY24 ; 0543 
000000006 &F $F 001 : PUSHAB PAgEN 
bp CE OO1SA 98: -ANEGL I> =(SP) 3 0545 : 
re 06 EF SF 0018D  ~—-PUSHAB NPAGEN : ; 
stata | ¢ £8 11$: BLBC = BRN_OPEN, 128 : 6860 ; 
; f Ae OD 186 "  MOVG~=—s COUNTER_POST STRING LENGTH, <(SP) : 9360 
i: i AE 7D 001 MOVa COUNTER PRE, STRING_CENGT : 338 
Ke BD O91) PUSHL Posse] 
7E 10 ACD HE mova aati MAJOR_TYPE, -(SP) ; 
000000006 EF 08 FB OOITF 1s: Sets RB PUTT, $0562 
6A EC B89 DO 001 + WOVE Sea pest. ; 
ye OMA +e vi MOVL  @SCA+112. PPTSCA+12 ; ; 
7 MM fe RD ORS oR MOVL  @SCA+116, PPTSCA+16 ; : 
19 AA AS Bg OR Bo log MOVL @SCA+120, PPTSCA+20 : : 
3 OM BP BS OR Okt MOVL  @SCA#+124, PPTSCA+24 : : 
18 MA 3 OD OBB tein MOV. —BSCAFT2B, PP SCAtB ; : 
36 aA ot BS 00 OIAD MOVE §— SCAT 186° bp pe SEAS ae 
4 AA 10 B9 D 0018 MOVE > PPZSCA+40 : ; 
goo GBS BD ante? ROME Seca Id6: sth palped: 
8 86 Sores 138: MOVE scat, SCA. HOLDCIJ ; 0568 : 
ea BF eT FS OOIed -  AOBLEG 9G : 0569 ; 
re 37 000000%— «89 bd ani) MOVE, aschel{6, HOLD _LM ¢ 0368 
i DO OOID? 148: MOVE.‘ TRA4EI) IRA_HOLDCIJ ; 0572 : 
DB AD4O 00000000GEF40 oor 7 wh At. ies pe 
F2 54 000000006 EF DO O01ES Woy, KHAR, WOLD ky : 0582 ; 
ERG RES RMSE TE : : 
ong airs 158: EERE §cA#172 : 8386 : 
HOt DO OOIEA MOVE LS’ Scas204 : : 
54 Ad 01 do it CLRL astasi0« : B288 3 
ef 4 D4 ; CLAL seresi ye : 0991 : 
0 B89 96 er nk ? ROVZBL #150, ascast20 : i 
oH Cara i gst] 
rd se Re «ES oosi4 BLBC CAPTION fs BOLD, 168 
¢ $6 AE OED ROS BLBC_ = SCA+168. | ; 0606 : 
a? 30S bs 1 BI S82 i. Scat : Oso? ; 
= @ 168: BLBC’ —CABTION 1S UNDERLINED, 178 ; 0610 
0D 50 AC e9 8 BBC #1, SCATI6O8, 178 > 0613 : 
08 ; 8 ! D BISB2 Ag. SCAs] : Oot ; 
cM $ 88 00581 BISBc #2, SCA+1 
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TCHA Processor for chapter and endix headers. 16-Sep-1984 219: AX-11 Bliss-32 V4.0-74 P 
V4 000 OUTCHA == Process chester S’besendta headers 19780871382 94: 49:9F YRUNOFFeSRe OUTCHA.BLI; he (38 
3c =O AC C#O# 17$:  PUSHL CAPTION_CASE : 0617 
nn ae cc BR i ee eto ; it 
000000006 ai Be. is CALLS a fITLES ; 
3 5¢ ag ; 4A 18%:  BLBS BRN_OPEN, 19$ + 0621 
016 4 BRW 7$ : 
D4 19$: CLRL JI ; 636 
00000000GEF 40 D8 ADS 09 20$: § MOVL 1RAHOLDE II, IRA-4(1] : 06 
F2 50 Q F ny AOBLEQ #9,71, 20$ ; 
88 A94 oe2o BG 3 218: wbvt —« $ca_oLDEI9. SCACz + $683 
F2 $0 0000005F a F AOBLEQ #987 I, ate : 
ec 8 AD 1 MOVL PP_§CA, @SCA+100 ; 
FO BY 06 AA D 75 MOVL  PPTSCA+4, @SCA+104 : 
FBS 8 AA D 7A MOVL Pp~ScArg ascatl ; 
FB BS ¢ AA D 7F PP“SCA+12, aSCAt112 ; 
FC 9 AA D MOVL  PPSCA+16, ascarti6 : 
00 89 14 AA D 9 MOVL §§ PP7SCA+20, aSCA+? ; 
4 89 18 AA OD MOVL PPTSCA+24, a@SCAt124 ; 
8 B89 1 AA D 9 MOVL  PPTSCA+28, @SCA+128 : 
¢ B89 AA D 9 MOVL § PPTSCA+32, @SCA+132 : 
10 +89 4 AA D 9D MOVL  § PP-SCA+36, @SCA+136 ; 
14 B9 8 AA D Ag MOVL  PPTSCA+40, @SCA+140 ; 
18 B89 aS A MOVL  PP™SCA+44, @SCAt144 : 
6A EC B9 D AC MOVL § aSTA+100, PP_SCA + 0632 
04 AA FO «OB9 COD 80 MOVL a@SCA+104, PPTSCA+4 : 
08 AA F4 OBO COD B L @SCA+108, PPTSCA+8 ; 
¢ AA FB «BS OO BA MOVL  @SCA+112, PP7SCA+1 ; 
10 AA FC OBS COD BF MOVL  a@SCA+116, PPTSCA+1 ; 
14 AA 00 89 D C4 MOV @SCA+120, PP~SCA+ : 
18 AA 04 B9 D 9 MOVL  @SCA+124, PPTSCA+ ; 
1C AA 8 B89 D ¢ MOVL  @SCA+128, PPTSCA+ : : 
0 AA oC 89 D D MOVL  aSCA+132, PPTSCA+ : 
4 AA 10 89 D D MOVL  @SCA+136, PPTSCA+36 ; 
8 AA 14 B9 D D MOV @SCA+140, PP7SCA+40 ; 
C AA 18 89 D E MOV @SCA+144, PPTSCA+44 : 
0 D4 0026 CLRL oI : 
6E40 88 A94 D9 E9 22$: MOVL  SCALCI), $SA_HOLDCIJ : 
F2 50 0000005F i Fs EF AOBL EG #95, 1, 22$ : 
D8 AD4O ooooo00acer a 09 F9 23$: MOVL [RA~GCI] IRA_HOLDLIJ ; 
F2 50 09 F AOBLEQ #9 $s ; 
34 AD DG CLRL © $CA*172 : 
54 OAD 01 D A MOV Wi, SCA+204 : 
FO «6B9 «COD CLRL  aSCa+104 ; 
EC B89 D4 CLRL = @SCA#1 3 
FC} 6B9 «(4 00314 CLRL as cast : 
B89 96 BF 9A 00317 MOVZBL #150, a@SCA+120 : 
0 a9 8 BA 1 BICB 48, §ca+i ; 
Ag 1 D0 MOVL #1, SCAte ; 
Ic a9 1 D 4 MOVL #1. SCA+14 : 
000000006 gf 4 D a MOVL § HOLD_KHAR, KHAR : 
3 990000006 EF p f MOVL MRA,” HOLD MRA ; 
000000006 gf G EF 3 MOVAB FOOMRA, MRA ; 
2 B p 4 MOVL TSF, HOLD TSF F 
68 990000006 EF : 44 MOVAB FOOTfSF, TSF ; 
G EF D 48 MOVL MRA, RO : 
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TCHA Processor for chapter and endix headers. 1b-se S$ep-1984 AX-11 Bliss-3 e 
vu-000 OUTCHA == Process chapter S teeendta headers 1 50071383 9: 3: 9 RUNOFF ..SRC OUT CHAS bL gfe — d 
08 Aad 000000006 aF 00 2 MOVL #S_FMRA, 8(RO) ; 
A p A CLRL TRO) : 
6 A ’ MOVAB (RO) (RO) : 
04 =A $ D MOVL (RO), 4(RO : 
D4 CLRL : 
00 8840 »D 24$: CLRL agri : 
8 50 27 F AOBLEQ # 24$ ; 
6 4c «AC OE BiBc. OCC Apt oH I BOLD, 25$ : 
30 A BLBC sta 68; : 
20 A oi A Bisez if SCA+1 : 
4G AD 1 B1SB SeAs19 : 
- : 0 50 at 7F 25$: BLBC caption: i UND DERLINED, 26$ : 
38 Ag oe § Biseg ¢ Best ign : 
4G AD B1SB SCA+19 : 
3c.) 6=OACC#Oé# 26$: PUSHL wo, SCA CASE : 
00000006 EF 1 FB 0039 CALLS #1, SETCAS : 
00000006 EF 0 FB 0039A CALLS #0. SCANT : 
— 7C 0 Al CLRO 20 = ( §p) : 
7E 04 a3 CLRL = (SP) : 
000000006 EF FB 003A CALLS #3, ENDWRD : 
000000006 EF dO 00 AC MOVL §§ HOLD_MRA, MRA : 
68 D 0 B MOVL HOLD TSF, TSF : 
50 (4 7$: CLRL I : 
00000000GEF 40 D8 AD4O DO 00 8$: MOVL IRA -HOLDEII, IRA-4(1) ; 
50 9 F3 003C AOBLEQ #9, : 
000000006 EF 4 pd 003¢ MOVL § HOLD_KHAR, KHAR ; 
0 D4 00O3CD 29%:  CLRL : 
88 A940 6€40 DO OO3CF 30$: MOVL SCA. HOLDE I}. SCACII : 
F2 50 0000005F BF F3 00305 AOBLEQ #95 ; 
EC 89 6A D 6 Dd MOVL PP_ gh! @SCA+100 ; 
FO. BS 4 AA D £1 MOVL PPmSCASG @SCA+104 ; 
F4 «BS 8 AA DO 00366 MOVI. PP-SCArs aSCA+108 F 
F8 BS £ AA DO O03E VL  PPTSCA+12, aSCA+112 ; 
FC 9 10 AA D 0 F MOVL PPTSCA+16, a@SCAt116 ; 
00 89 14 AA D F MOVL PP“SCA#20, aSCA+120 F 
04 89 18 AA OD FA MOVL  PPTSCA+24., aSCAt124 ; 
08 89 1 AA D FF MOVL § PP™SCA+28, @SCA+1 8 ; 
0c 89 AA D 4 MOVL  PP™SCA+32, a@SCA+l : 
10 89 4 AA dO 004 MOVL  PP7SCA+36, aSCA+136 : 
14 89 8 AA D MOVL  PPTSCA+40, aSCA+140 : 
18 «B9 C AA 00 0041 MOVL  PPTSCA+44, @SCA+144 : 
FO BS 01 DO 0041 MOVL sot asca+tos + 0713 
Ad D4 0041C CLRL schol : rae 
54 Ad 01 09 Gif VL —s #1, SCA#204 : 0715 
o¢ ‘ AC E9 004 ; BLBC CATION. 1 BOLD, 31$ : 0718 
: 30 «Ad 4 BLBC scat 68> 3T$ ; 
20 A 1 B B1 $83 ai. Scat 3 : 0721 
4C Ad 1 F BISB2 #1, SCA+ : 07 : 
0D 50 AC €9 004 : 31$: BLBC CAPTION i UNDERLINED 32$ : 07 
08 30 A9 1 £1 004 BBC “i, SCA F 
20 a9 8 BISB2 #2, SCA+ : 0728 
4¢ Ag 4 BISB2 #2, SCA+ i : 07 3 
43 90 38 AC A 00444 328: EMUL #1, CAPTION _MINOR_TYPE, #0, -(SP) : 07 
5 BE ; 7 4A EDIV = #3. (SP)+, RO, RO ; 
; OF CMPL SRO. F 
OF 452 BEQL 6-338 : 


ee 


: 


ge 


TCHA processor for chapter and endix headers. b-se 1984 AX-11 Bliss-32 V4.0-74 
9045000 QUTCHA == Process chapter P Seeend(a headers i ~300 138% 9}: 43: $F RUNOFF .SRC OUT CNASL A 


03 * : : 4 4 cul CAPTION MINOR, TYPE, #3 ; ; 
04 45A CMPL GAPTION MINOR_TYPE, ws : : 
oor i | t Shue sBS : : 
3¢ AC DD 00463 33$:  PUSHL CAPTION_CASE : : 
900000006 EF * 95 PB ood we ene : : 
F F 4 MOVL S01, eat e : : 
eonteee Be goomeege EE Bs mov” FSb1. FSO : : 
fi if d Bre. 
50 00 G FF 9A 00486 34$:  #MOVZBL @FS01+4, TEMP_CHAR : : 
09 G EF Dg 4 INCL  FS0144 : : 
G EF 07 004 DECL  FS01+12 : : | 
000000006 EF 9 Pb bbe Cte i” EMDCHIR : : 
0 5S 3 FS Qocas 358: AoBLEG RS, Tn Sas ; 3 | 
at : : 
000000006 EF 08 FB OOGAA CALLS #3. ENDWRD ; : 
4 04 00481 CLAL r4 : : 
64 i D5 Suse ist | INES_BETWEEN : 
D6 0048 INCL R4 : 4 
54 60 aC cB BcBA 36$ BIst2 BREAK _BEFORE_CAPTION, R4 ; 3 
$8 8 BEB By 8: ie came ‘| 
5 20 AC DO Duco MOVL COUNTER. SPACES AFTERS RO” ; Be 
00000048 «=F 38 D1 0401 CMPL ; i 
RS, Bef. : ; 
17 31 OOO BR $ ; 3 
4c Ad BA 4E2 38$: BICB2 #3, SCA+196 ; 3 | 
50 Ag A 004E BICB2 #3. SCA+20 ; . 
00000006 FF : PO Socee CALS fis ENDCHR : . 
6 3 é i ars ap Tasyns Ree HOLD e t C_BLDUN, #0, #2, SCA+196 ; : 
85 8 ; FO O04F INSV  SCATHOLD“AC_BLUN, #0. #2. SCA+200 F ; 
— 7¢ 40$:  CLRQ =(SP) ; 3 
000G EF OS pe ATs #3), ENDURO : ; 
mene 4 40 ac € BLBS § CAPTION_IS_CENTERED ; : 
44 AC £9 0051 BLBC CAPTION IS-FLUSHARIGHT, 468 : ; 
0 6B D 16 41$ MOVL RO™ : : 
0 60 AC E8 0051 BLBS BREAK BEFORE CAPTION, 42$ : : 
64 AC b 1 IST us ES"BETWEER ; 
42$: MOVL : : 
op 40 Ae 4 BLBC ithe 1$ CENTERED, 43$ ; 3 
50 00 B? 04 SuBL RO) SSCA+120 : : 
BRB ; : 
50 00 «89 04 AO C3 00534 438: SUBL3 tie @SCA+120, RO : ; 


Se 


CHA == Process chapter & appendix headers 


28 OA 39 9 
08 


K 
tho ——«_SUPEREYEC AvEceurengantamagea tedects,  TERSEHNA UIST MSD SHRM RT one 
A 


44%: MOVL RO, 40(R1) 


BRB 
57 04 ; 458: MOVL = 4 (RO), HOLD_LM 


Q BRB 
oF 4 46$: BLBS R46, 49$ 
6 MOVL TSF, RO 
FC BS 04 =A 47$: MOVL 4(RO), a@SCA+116 
I a9 48s: MOVL #1, SCA+148 
000000006 EF 49$:  MOVL #1. GCA+224 
5 60 BLBS § BREAK_BEFORE CAPTION, 50$ 


TSTL iNES_BETWEER 


SSINA AAA MIMI 


Bia ; 7 

0 0 ; : 

AC OF 

A : ’ 

‘f BLE : $ 

000000006 EF 00 FB 2 508 CALLS #0, OUTNJ : : 
64 AC DD F PUSHL LINES BETWEEN : ; 

000000006 _ EF 01 FB 2 CALLS #1, GUSKIP : ; 
17 ¢ AC 5 851$:  BLBC BRN_OPEN, 52$ : : 

” woooontte HF 8 Rts RY, FAGLIGNLAAOR vee, csr ; : 
titdiitdt FF DD 38s PUSHL FOOMRA+12 : ; 

000000006 EF 4 FB ¢ CALLS #4, PUTTXT : ; 
000000006 EF = § PB ao Hh seteaese : : 
A 1D 9D MOVL #1. SCA+208 : ; 

000000006 EF i FB A CALLS #0 SCANT : ; 
000000006 &F 00A0 iH D4 DAB CMPL sche 0, #RINTES ; ; 
— 7C 8 CLRG = = SP) : : 

7E D4 0058 CLRL. = = (SP) : ; 

000000006 EF a8 Fe 28 CALLS #3, ENDWRD : : 
oop c9 D ai 53$:  TSTL CA+340 : : 

A 12 005¢4 BNE : F 

00D4 c9 DS 0056 TSTL CA+332 : ; 

4 15 O05CA BLEQ : F 

3 ohh Oe 3 mOVL a ss 

11 0050 BRB 55$ : : 

d4 0050 548: CLRL ; ; 

51 50 9004 C9 C1 00507 55$: ADDL3 SCA+332, RO, CHARS_TO_DROP : ; 
50 000000006 EF D DD MOVL MRA, R : : 

0c A0 C £4 SUBL2 CHARS_TO_DROP, 12(RO) : : 

046 =A ; 21 ‘ Es SuBL CHAR . O"DROP, 4(RO) ; 

1 0086 £3 06 6 56$: MOVL  SCA+ 4 , HOLD_WRD_PNTR : ; 

2 D4 £9 00 FS ROVE SCA ; HOLDTLST~SP : 

ag A940 6e26 D FC 57$ MOVL ScA_HOLDELI. SCACI) : : 

F2 50 O00000SF BF F AOBLEQ #957 I, : ; 
EC 89 6A D A MOVL PP_SCA; aSCA+100 : : 

FO. BY 6 AA D MOVL  PPTSCAS4, @SCA+104 : : 

F4 BO 8 AA D 1 MOVL pec ScAts aSCa+l : : : 

8 BY ¢ AA D 1 MOVL PPTSCA+12, aSCAtl : : 

FC B89 AA D 1 MOVL PPTSCA+16. a@SCAt] : ; 

B89 14 AA D 2 MOVL PPTSCA+20; aSCA+l : : 

Oe RY 18 AA OD MOVL PP_SCA+24, @SCA+124 : 3 

8 B89 10 AA OD C MOVL § PPTSCA+28; aSCA+128 : ; 


9 
TCHA Processor for chapter and endix headers. 18-56 -1984 219: AX-11 Bliss-32 V4.0-74 P 4 
904-000 OUTCHA == Process chapter O topendtx headers 1 ~$007 138% 94: 49:9F RUNOFF .SRC i re — ds 
of 89 0 AA D 1 MOVL pp aScats » @SCA+132 : 
89 4 AA D MOVL §§ PP-SCA+36, aSCA+1 6 : 
14 8 8 AA D MOVL  PPTSCA40, aSCA+14 : 
18 89 C AA OOD 4 MOVL  PP™SCA+44. @SCA+144 : 
0080 C9 21 D 4 MOVL §§HOCD_WRD_PNTR SCAt248 + 0903 
00D4 69 D 4A MOVL HOLD"LST“SP, §CA+33 : 0304 
4 40 AC E BLBS § CAPTION_TS_CENTERED, 58$ + 0920 
C 66 AC OE BLBC CAPT N-IS"FLUSH_RIGHT, 62$ : 
9 000000006 EF E 58$:  BLBS  GCA+224 : 09 3 
05 60 AC E BLBS § BREAK_BEFORE CAPTION, 59$ : 0930 
64 AC p ist LINESTBETWEER : 
50 6B D 59$ MOVL TSF, RO + 0931 
08 40 AC €E9 0066A BLBC_ CAPTION_IS CENTERED, 60$ + 0934 
51 00 89 04 AO C3 0066E SUBL3. 4 (RO), SSCA+120, R1 : 
be 9 oog7? ive fe, at 
51 0 89 04 i C3 rat 60$:  SUBL3 4(RO), @SCA+120, R1 + 0935 
8 AO 51 D0 0067F 61$: MOVL RI, 46(RO) + 0933 
000000006 EF 00 FB 0685 62$: CALLS #0, OUTNJ : 0938 
08 AC DD 06 A PUSHL LINES_AFTER : 0940 
000000006 EF gt FB 00680 CALLS #1, GCSKIP : 
3c AD 1 D0 00694 MOVL #1, SCA+180 > 094 
000000006 FF DD 00698 PUSHL  aGCA+128 > 094 
000000006 _ EF 01 FB 0696 CALLS #1, SETCAS F 
- 000000006 EF D4 006A CLRL + + 0947 
000000006 FF 8 DO 006AB MOVL § HOLD_HEADERS, @HCT+8 : 0953 
04 00682 RET : 0970 
; Routine Size: 1715 bytes, Routine Base: $CODE$ + 0000 
B44 0971 
; 845 9444 1 END 'End of module 
+ B46 0973 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: SOWNS 48 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC.ALIGN(2) 
: SCODES 1715 NOVEC.NOWRT. RD. EXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(2) 
: Library Statistics 
: wov3erces Symbols eoececece Pages Processing 
A File Total Loaded Percent Mapped Time 


~$255$DUA28: CSYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 


s2 


mM 9 
vo4<000 BUTERA == Process’ chapter € appendix headers — Ve-gepaloee S4io7is) — EAUnorr’SRedouecHAs or 144 oad v4 
; _$255$DUA28: CRUNOFF .SKCIDSRLIB.L32;1 1248 137 10 86 00:00.3 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:OUTCHA/OBJ=O0BJ$:OUTCHA MSRC$:OUTCHA/UPDATE=(ENH$:OUTCHA) 
a : 1715 cage + 48 data bytes 
e: 0:39.9 


Elapsed Time: 1:146.9 
Lines/CPU Min: 146 
Lexemes/CPU-Min: 1771 
ponery Used: 378 pages 
Compilation Complete 


° 
° 
. 
. 
. 
e 
. 
e 
8 
o 
o 
a 
o 
e 
2 
° 
io 
e 
° 
e 
© 
e 
. 
e 
. 
° 
. 
eo 
. 
e 
7 
e 
. 
° 
° 
e 
© 
° 
© 
7 
* 
e 
. 
e 
. 
a 
. 
a 
. 
y 
° 
e 
© 
° 
° 
e 
° 
° 
. 
e 
. 
2 
. 
e 
. 
& 
° 
a 
© 
e 
* 
o 
2 
oe 
. 
o 
o 
o 
. 
eo 
* 
e 
. 
a 
. 
° 
. 
e 
° 
e 
. 
o 
a 
e 
. 
e 
@ 
. 
e 
a 
o 
. 
a 
o 
a 
e 
© 
e 
. 
e 
2 
e 


AL EQUIPMENT CORPORATION 
DENTIAL. AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


034 ae 


